home *** CD-ROM | disk | FTP | other *** search
/ Invisible Universe / Invisible Universe (1995)(Voyager)[Mac-PC].iso / mac / MOVIES / CREDITS.DIR / 00004_Script_4 < prev    next >
Text File  |  1995-11-15  |  1KB  |  55 lines
  1. on exitFrame
  2.   global gCreditRate, gSoundIndex, gVolume
  3.   
  4.   if not soundBusy(1) then
  5.     if gSoundIndex = 3 then
  6.       set gSoundIndex = 1
  7.     else
  8.       set gSoundIndex = gSoundIndex + 1
  9.     end if
  10.     
  11.     sound playfile 1, getAt(["SPAZIO.AIF", "CRISIS.AIF", "STLHEART.AIF"], gSoundIndex)
  12.     set the volume of sound 1 = gVolume
  13.  
  14.     --    if the machineType = 256 then
  15.     --      sound playfile 1, "spazio8s.aif"
  16.     --    else
  17.     --      sound playfile 1, "Invisible Universe CD:MEDIA:U:spazio.ima"
  18.     --    end if  
  19.   end if
  20.   
  21.   --
  22.   --
  23.   -- Change music
  24.   --
  25.   if the machineType <> 256 and the optionDown then sound Stop 1
  26.   if the machineType  = 256 and the shiftDown and the controlDown then sound Stop 1
  27.   
  28.   --
  29.   --
  30.   -- Speed up credits
  31.   --
  32.   if the shiftDown then 
  33.     set gCreditRate = gCreditRate + 1
  34.   else 
  35.     if gCreditRate > 1 then set gCreditRate = gCreditRate - 1
  36.   end if
  37.   
  38.   --
  39.   --
  40.   -- Reverse direction
  41.   --
  42.   if the controlDown then 
  43.     set the locV of sprite 2 = (the locV of sprite 2) + gCreditRate
  44.   else
  45.     set the locV of sprite 2 = (the locV of sprite 2) - gCreditRate
  46.   end if
  47.   
  48.   if the bottom of sprite 2 < -10 then 
  49.     fadeSoundChan(1)
  50.     endCredits  
  51.   end if
  52.   
  53.   
  54.   go to the frame
  55. end